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BEGIN COMMENT CREATES HARD COPY OF CANUt FILES FUR USERS; 
REAL I*J*K*X*Y*Z*NUMUSERS»NUMH I L-ES* USERCODE' MED I A* FMED* 

C.QM.Mj:NJL-* IlIL£J-_ja5M^ _ 

FILE ID I SYMBOL/HARD TAPE lOl SYMBUL2/FILE000 
THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATI 

AND_1S_NI1L_1Q._.B£ R.EPRO.DU.CXfi^JJiE.O*... UR DISCLOSED 

EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
BURROUGHS CORPORATION* DETROIT/ MICHIGAN 48232. 



* 



# _ 

* 
ON * 

* 
* 

* 

* 

_*.;. 



* COPYRIGHT CO 1971* 1972 BURROUGHS CORPORATION 

-.- * AAi2.Q2£6 AA18_6.6.5J1_ 

ROW* FIRSTUSER»LASTUSER* DATE* THING* 
BOOLEAN FN; 

LABEL NEWROW^FlNi; _ . __ . 

DEFINE PRINT»2#* XMEfllA DIGITS FOR FILES TO BE PRINTED* 
PUNCH*3## XPUNCHED OR 

TAPE. mAMJ ICCPIEQ. IQ TAPE . . 

DEFINE R0WMAX«9#* 

USERMAX=49#» 
WQR.DMAX*5*i._ _ _ _ _ _ _ ___ 

DEF I NE NU Ml NRQW C NUM I NROW 1 ) «F I LE NAML C NU M I ~NRQK 1 * cT, [3 Tl'l 5 3 "*7'~ 
NXTROW(NXTROW1)»FILENAMECNXTROW1*03, C18:l53## 

LASIAPE.aA.ST.AP.£l}.*FlLEMMErkA5lAPE.l,0.3t.L9J9Jl J * 

FMEDIA=[6»6]#; 
DEFINE MATCH(MATCHWVATCH2)=REALCB0ULEAN(MATCHn EGV 

BOOLEAN (MATCH2).)=REAL(N0.I FALSE)#i . 

DEFINE LEFTARROWe "«•"*; 

DEFINE BLANK Ss3 w 06060606060606«"»; 
QEFim $-llLmZ»QA23l(a5AA<ltSLhQ.Zll . 

ARRAY DAYS[0»12]J 

SAVE ARRAY ST0FF[0»29J* BUFFC0»9]* JUNKC0U3* 

.--.- USERS [ O-LUSERMAXl* __ _.._. 

FILENAME[0JUSERMAX#0IR0WMAX3* 
WORDEOtWORDMAXi; 
J. '..am AT NOF I LE.SC. ».Mn ... FILES. 1 0. CQEY " ) i 

format toobadc no such filecs)")* 

FILE DIRECTORY DISK RaNdOM "DlKcTRV" "D ISK" { 1 , 3u ) ; 

JlLE S.PQ...1 1. .. 12* l.Q.i;,.„ _ _ 

FILE LINE 1 (2*15); 

FILE PNCH (2*19); 
SAVE .FILE.. .T.P.E.. 2. C2.*.5.6> lfl* SAVE iQli 

MLE DISKFILE DISK SERIAL (3*10,30); 

. .PRQC£MBE_S£J-LijSERCianElJ __ 

VALUE USERCODE; REAL USERCODE; 
COMMUNICATE(-IO); 

STREAM PROCEDURE FORM ATI ( BUF?* FN ) ; 
BEGIN 

.S.IJ*.FN;.....DI.?. = aUFJ"L 

0Sl*22LIT« NO ROOM IN TABLES FOR"' 
DS«M6 CHR; DSl»LIT LEFTARROw; 

end; 



oooiooco 
oooioioo 

QfiP.iQ i.i.0 ... 
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00010800 
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.0.00110.00 
OOOlHOO 
00011200 

QO.0113Q0 

00DU400 
00011500 
000.11600 .. 
00011700 
000H800 

OOJUIPOO— . 

00012000 
00012100 

Q.Q.0 12200 

00012300 
00012400 

.... .QQ0125QQ. 
00012600 
00012700 

_.a0iii2BflJQ 

00012900 
00013000 

0Q01310Q 

00013200 

XXX00013300 
00134 00 
000135"00 
00013600 

XXX 0QO 1370O 



00013800 
00013900 
00014000 
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00014100 
00014200 
00014300 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%% 00014400 
STREAM PROCEDURE NQF ILE C BUFF, T YPE ) ; 00014500 

BEG I N „ 00014600 



ft 

2< 

3 
4 



oiubuff; si*«type; sn»si + i; 

0Sl»14 LIT" NO FILES FOR w ; 

_D s ;* 7 chr; 
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DSS*L1T LEFTARROW; 

end; 

REAL STREAM PROCEDURE UCTC8NVC DECV ) ; 

VAUUE DECV) 

BEGIN _ _ _ 

Sl«*LOC DECV; DH=l<K OCTCONV* D5« 

END) 
lMX«XlX.*XlIlIl.l.»XiA*lIiil^lllliLili.il 

REAL STREAM PROCEDURE OECCUNVC QCTV ) i 

VAUUE OCTVJ 

.....MGIN . - _. .._ .._. 

SII=LOC OCTV; DIislOC OECCONV* Ui$ 

end; 

stream procedure blank ( buff* word ) i 

BEGIN DI»"BUFF; DSlsi.IT" "/ 

sii*word; si i." 5.1+1 j. ds j*7 chr; 

end; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1% 

SIRE AM PROCEDURE FORMA JACBUFf *jtOKJQJi. 
BEGIN 

si«=word; sitssi+i; uii*buff; 

O.S.la.9 LIT" NO USER"; 

7UF SC-ALPHA THEN QD.eCHR LlSE ju 

ds:=lit leftarrok; 

- end; .. ■ - 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

STREAM PROCEDURE FORM AT8< BUFF* FN, TYP 
BEG IN - — - — - - ----- 

si j*fn; 

di:*buff; ds.schr; 

„15.UJL.S£«ALPM -IHE N ■■P-SJL»£HB_iLLSiE_. J 

DS»«U LIT" COPIED TU «; 
Sl;»TYPE; SIJ*SI + U OSJa/ CHRi 

DSlJsl.lI LEFIARRQIJ 

end; 

%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%% i&i AX. 

S_T.R£AR^J[JllCLEiUlB£_y£AlUJ!lJSXfiUEfL££WiJlAl 

begin dh=0uff; sh*fn; 

DS»*5 LIT"FlLEt"; DS:sCH«; 

15C IF SC»ALPHA THEN DSlsgHR ELSE I 

ELSE JUMP OUT)' 
DS«=8 LIT" "; 

_ .Sj-l-aJUQfllU S.lJ..aS.I.*.ll.JJi.i.=5-Xri£i-_D^-L 

SltaOATE; DSJ*8 CHr; DS»*16 LIT" 

end; 



00015000 
00015100 

00015300 
00015400 

- - -..00-013.5.00... 

=8 OCT> 00015600 

00015700 

iw&iiJKi 2 %*x % iiixiiJUL«jLiiiiiiixjuxLaiii5Aaa.. 

00015900 
00016000 

— — - Q0-Q16-1Q0- 

=8 OEC/ 00016200 

00016300 

%%.Xi3k%i% .ixiL**i%iiiiixxxiixii2itiiixj}sifn& aoo 

00016500 
00016600 

_ __ .-£00.16X00. 

00016800 

~ - - - -- naa-iimo- 

00017100 

00017200 

• .-00047-3-00 

MP OUT); 00017^00 

00017500 

-000-17 60-0 

00017700 

00017800 

- 1-7-frOO 

00018000 

00018100 

.UMP...J1UJJJL 00-016200- 



ej; 



00018300 
00018400 

- - - - ....JlO-Gia-SQO. ■ 

00018600 
%%%%%%•*%%%%*%%%%%%%%%%%%%%%%%%%%%%% 000 187 00 

ExJsJiaDJ.1 - _...... oooiaflon 

00018900 
00019000 

F SCs"/" THEN QSi«CHR 00019100 



si4 _LXL"EO-{ 
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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
STREAM PROCEDURE SH IFT ( BUFF* STUFF )i 
BEGIN LOCAL A J 

S_L« s BUFF ;„ 2 C S 1 1 = S J + 36 ) i _QI|. S ilU Ff i 



. tallyhs; 

7<IF SC* w O" THEN BEGIN 

_ else jump out) ; 

ai-stally; ds»=a chr; ds«=lit" 

SIIsBUFF; 2(CSJ=36 CHR); DS»x6 
JNDJ 






%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

STREAM PROCEDURE MAKEFILE C A*B* NAME U 
BEG IN LABE L L1»L2 J 



00019200 
00019300 
000194 00 
00019500 
00019600 

1UIUUJU 1* JUX 1% Xllll4»lIlJLUULlXlliinfll47ilfl_ 

00019800 
00019900 

00100 flj} 

00020100 
00020200 
0020 300 
00020400 
00020500 
..00020600 . 



...a§j«kii"i"i- __ 

DSlsLlT" "; Sl»«Sl+i; TAULYl»TALLY+63 END 



li 



%%%%%%%%%%%*%%%%%%%%%%%%%%%X%%X%%%X0QQ2Q70Q 
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si t = a; su = si-f2; 

DltaNAME; DS:=LIT M "/ 

lAU.£J.__Ui 

6CIF SC»ALPHA THEN BEGIN 

ELSE JUMP OUT)! 
OS tml U»S» i _. _ 

sii*b; sh»si + i; 

7(if sc'alpha then begin 

else jump. qu.ij.j_ 

ai.tally; ACDSl-LIT" ")i 
end; 



ds««chr; TALLYlsTALLY+63 eno 



DS:sCHK> TALLYS=TALLY+63 END 



Slsssi+l; 

XQ -LI 



DSJsCHR. 



GO TO LA8 END; 
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REAL STREAM PROCEDURE ANALYZEC INPU1 »C_U-*TaB ) J 

begin label l*lab*bel* 

local sfart#b*c; 

sh-input; 

LAB* IF SC* M " THEN BEGIN 
IF SC *. LEFTAHROW THEN GO 
STARTJ*Si; 

si j«tab; 

_ WORDMAX CB l.?3.tJ 

D1»*LQC Ci DH-DI+7; 
OI«*START> 

IF C S..C."fl£ THEN 

begin analyzes=tally; 
ci»di; sn-c; 

jump out to u 

eno; 

si»=b; sit-Si + 8' tally: = tally+d; 

T-ALLY 1»0; ANAL yZtl-s-T-ALX-U 

si»=start; 
i' di«*cqde; 2( 

B.U..1 lf-..S£jL n ..JLJti!DLJ&fi.llL-£U*&l±LiU^ l£LJsEJ»_EJ_I]J. 

if sc* M / M then begin sh»si + i; go to bel end; 
dsi«lit"o m ; 

. ._.. tall y j ..■ u _. _ _ ... , 

7CIF SC«ALPHA THEN BEGIN OSSsCHh; f ALL Y ! =f ALL Y + 63 END 

else jump out:; 
_ b. : =t.all*; bcds» 5l it h "_) ) ; 

end; " " " ~ ~ 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

REAL STREAM PROCEDURE YES.QRNOCANS) J 
BEGIN LABEL L; 



00021000 
00021100 

- QOO 2 1.2.0.0 

00021300 
00021400 

- OQ02X50Q 

00021600 
00021700 

00.02.180.0. 

00021900 

00022000 
% %%X%.%.XX1%% ____L_X____._i._ OQO2Z4O0 

00022200 



00022300 
0002.2.400. 
00022500 
00022600 

000.22^00 
00022800 
00022900 
O.O.0.2.3.0O0 
00023100 
00023200 
0002 330 
00023400 
00023500 

. 0.002-160-0 
00023700 
00023800 

_00O_3-9O0 



00024000 
00024100 

_ &QQM2QSL. 

00024300 
00024400 

QOP_.245.QO 

00024600 

00024700 
0Q024 ft p 

OOO24966 
%%%%%%%%%%%%%%%%%%%%% 000 25000 

__... 000-5100 



L: 



sh-ans; 

IF SC 



THEN BEGIN 



go to l end; 



IF 
IF 



SC* M Y M 
SC8"N" 



THEN 
THEN 



TALLYI-1 

tally;»o 



si'fSi+i; 

ELSE 

ELSE TALLY:_3; 



YESQRNQt»TALLY; 



end; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PRj_C£OURI..SURC.Hj_liiELCiaR_Y; 

REED* 



BEGIN LABEL 

zi«i5; 

JLElOl 



STORE* BUG0UT*TStK; 



00025200 
00U25300 

_ 00025400 

00025500 
00025600 

. _ 0002 5700 

000_5800 
%%%%%%%%%%%%%%%%%%%%%00Q'i590Q 

0QQ2600Q 



READ(DIRECT0RYCZ3*30*STUFF[*3); 
READ SEEK(DIRECT0RYrZJ-_ + 16n; 
FOR J<-28 STE P -2 UNT IL 8 DO 



00026100 
00026200 
00 02630 



55 

56 



Sl 



IF CXlaSTUFF£J3)»3"114 H THEN GO TO 
IF X NEQ 3*14" AND X.FMEOlA GEO 2 

-BjEou__ ; 



BUGOUT ELiE 
AND X.FMEDIA 



LEO 5 THEN 
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00026500 
000 26600 
00026700 
00026800 
00026900 
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USERCQDE.*-STUFFtJ + lJi 

FOR U=0 STEP 1 UNTIL NUMu*»EH6 UU 

..-- -lE--MAlCilXli5E.aSXJJLi USERCflDL) JhLh - - 

BEGIN 

rowj«i; 

— _ WHILE iJUMlNB.Oto.Lll GF Q R H M A JL-DJ1 

IF NXTROWCIJaC THEN 

IF NUMUSERS GEQ USERMAX THti* GO TG 1 SEK 
.- £L3.E JilXlfinHU 11 5X1 =LliUMUS£Bfil^ilUAJUiLtitSLU. .- 

ELSE i:«NXTRQWm; 

go to store; 

----- -EMUi - _ - --: _ 

IF NUMUSERS LSS USERMAX THEN 
BEGIN 

USERS[ROW* = It = NUMuSERS« * N UJ U 3 t.R 5 + 1 } i = u 5. £.* C Q OU- 
ST ORE' NUMINROwCn»«Yl«NuMINROwCn + n 
FILENAME. I»Y3**X; 

NUMFlL£S?«NUM.FILES + U _ _...__ 

IF X.FMEDIA s TAPF THEN 
BEGIN LASTAPEU3l*Y; 

WHILE BQ.H LS.S.-J- Dfl .a£O.LIl..LA.iTjy s ..EI.RQ.M.l.l. = Q.i 

ROWJ-NXTROWCPOW] END; 

end; 

.. END ELSE 

BEGIN 
Ti>ER: MAKEFILE (X, USER CODE' BUFF [6])/ 
FQRMATHBUF.FCC.]*.fi.UEFX61J.;..- 

write(sp0»5#8uff[*3); 
end; 

.__EiiD.; __ _ _ 

GO TO 
BUGOUT* 

sum 



00027000 

00027100 

..fl.0-fl2.2L2Q.Q- 



00027300 

00027400 

-qOQ27500- 



00027600 
00027700 
QQQ27.&QSL 



00027900 

00028000 

JMH2&X&J1. 



00028200 
00023300 

-aao.aafl. oq . 

00O28500 
00028600 

_aflii2azoo- 



reed; 
close(directort); 



00028800 
00028900 

mazaoaa 

0002V100 

00029200 

000-2-9-30-0- 

0002V400 

00029500 

..QU.U29.6fla. 

00029700 

00029800 
00029900 



PROCEDURE SEE IFTHEKLUTZNEEDSFILEN AMES; 

_0t£l.]yL. LABEL. aiART.Ai££D-iIXl__ ...__ _ _ 

REAL L#m; 

FORMAT FMT2(" FILE NAMES?")' 

HUNHC" ANSWER MU ST B E YES UR_ NO -_ TRY AGAI N. "Jj 

WRITE£SPQ#FMT2); 
REEDJ 

RE.fiQtSFQflo.eS.IUE£JL*lli. . __ 

IF BOOLEAN(X»sYESGRNOCSTUFFC*jn THEN 
IF X LSS 2 THEN 

...MiBJ __ __ 

FOR JJsPRINT STEP 1 UNTIL TAPE DO 

begin zi*e; ljs-i; 

„ 8 L AM C..S.ti_£ £LQJj .MflflnUll i 

FOR M:=0 STEP 1 UNTIL NUMUSERS UQ 
BEGIN IJsM; 
If USER_CQPEjj»_US_£RSLlL_NEa THEN 



00030000 
OOOiOlOO 
00030J 



L200-. 



00030300 
00030400 

.fla_o,iflaaa 

00030600 
0OOJ0700 

jQMiilflM. 
00030900 
00031000 
00031100 



00031200 
00031300 

.flfli--AL-_ILQ_ 
00031500 
00031600 

_Q.fl.Sli ZflCL 



BEGIN 
ITI FOR Kl*l STEP 1 UNTIL NUMINRQWCI3 
IF FILENA*E_IjK3.FMEDIA«J THEN 



DO 



BEGIN 

MAKEFILECFILENAMECl'K3*USERC(JDE,STuFFCL**L+2J>; 

z i*±* -,-- - ._ , 

IF L»7 THEN 

BEGIN WHITE(SP0»9»STUFF£*]>; 

t, _»-l ■■■::.&:■. ■■: > V ... . ■ . ■ ■... :.... , ■■..,, .. 



00031800 
00031900 
J3JJ012J3JDJL 
00032100 
00032200 
00032300 
00032400 
00032500 
0003260-0- 



00032700 
00032800 
00032000 
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END 

end; 
if 1 1 ?.N.xxfiaaxJ_a i_e_.__ :uiEj_.._ii___. xj 

END 

end; 

IF L 6 IB. __. _____ .JURJL IE. C.S P. * L±2 _ S TU£ ill * J. _ 

ELSE IF Z»0 THEN 

BEGIN N0FILE£BUFF[0]*W0HDLJ];; 

- _fiIIIXS__U_U£UFXI__U 

ENO 



END 



END. ELSE BEilN XRl.IE.LSLEJliHllMtU_.W_TO BEEQ EfcDj 

end; 

.. mqleajl prqced.u.re t. hlhesdmeth i n g t 00 ; 

begin label reed, exit; 

REAL JJ 

FORMAT F._J__._ W.H.AIS ..MEX.T.?.. H JJ... ..... 

DEFINE CODE»JLNK#; 
IF NUMFILES NEQ THEN 

_ BEGIN _ __ 

X JsOJ 

WRITECSP0#FMT3); 
REEDi READCSPQ* lft».5T.UFFI*.l?; 

MEDI A 1 =ANALYZE(S TUFF [*], CODEC *]>rtURDO ]}> 

IF THERESOMETHINGTCDO.'sCMEDlA NEU i) THEN 
BEGIN 

if match(ccd.[03» blanks) then 
begin lastuser:*nlmusers; 

e.1R.stuser..j=o; _ 

END ELSE 
HEGIN 

FQ.R.. JI.5.P./P.1 0.0 

FOR 1 1 -0 STEP 1 UNTIL "nUM USERS ~QQ " 

IF MATCH(CODECJJ>USERStI 3) THEN 

BEGIN LAS.T_LS._fi ? =F iR _I_S_R*i -i ; 

go to exit; 
end; 

NQFJ..LEcB_F.F;..E_»J.._j_P.P.£.t.IF MA TCH (CODE Cj, J#Bj_ANKS ) T HEN ELS E JJJ 

write(spd'3*buffc*]j; 
go to reed; 

E.NDJ ..:_ ,... 

EXIT: IF FN.-BOOLEANC J) THEN Tm 1 NG : s JtiNK C J . C 6 j 36 J ; 
END 
END ELSE. THERE SOME T H I NGTODCH "F ALSE / __ 

END; ~ 



00033000 
00033100 

- - - QO-fi __ aoxj 

00033300 
00033400 

_ - 0-0.0.33 50.0 

00033600 
000.3700 

-.- - - - nn._.3.3aoo. 

00033900 
00034000 

--Q.0M1Q.Q 

00034200 
%%%%%%%%%%% XXXOOO 34 300 

- QXl.Q^.44.Q.O 

00034500 
00034600 

— - - - - 00034.700. 

00034800 
00034900 

aO.fil5Q.Qfl. 

00035100 
00035200 

0.00.15,30.0. 

00035400 
00035500 

- - 0003560.0 

0QQ3570C 
00035800 
_U_3__i____. 



00036000 
00036100 

..il__ _»___!_.. 
00036300 
00036400 
.0.05.3650.0 
00036600 
00036700 

..__1_1___>._.. 
00036900 
00037000 
fl__L_ 7.10.0.. 
00037200 
0003^300 
00037400 



..-PR_.C1DU.BE MAKED.A_T.EJL. , _ __ 

BEGIN 

real mm*dd,yy; 

MM? ._IJLJM£IiaJL_Di}J___C______Ul_^ 

YYt«0CTC0NV(MM,[16:12]); 

IF DO GEQ 60 THEN 
If.-__C___L6.__J NEQ THEN __________ 



00037500 
%%%%%%%%%%%%%%OQQ 37600 

_QiJJ._Z.Q_... 

00037800 
00037900 

. __Lg_____Q_ 



55 
56 



YY:=mm,[ 18: 123; Mi^t^o; 

DO MM!=MM+l UNTIL DO LEW DAY$Cmhj> 

Dn:sDEc cONvfnp-nAYsrMM-ii); 



00038100 
00038200 
00036300 



MMJ»DECCONV(MM); 

DATE«* ,, 0/00/00"_MM[i:37» 1 13&DD 1 18 « 36 J 12 3- Y Y [ 36 » 36 : 123; 
_____ : . 



00U3d400 

00038500 

J__0_____Q. 



li 






00038700 
00038800 
Q O 3 89Q0 



10 

11 I 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 i 

24 

25 

26 I 

27 

28 

29 i 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 

44 \ 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

56 I 



m 



f" 

,3 



29 
30 

31 

32; 

K 

3&I 
36, 

i:«r 

38 

wo 

|41 

L 

44 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



%%%%%%%%%%%%%%%%%%%%%%%%%%^%%%-)'-t l AXM!l,ik%» ) - A - l i ! % : i.- i %%% i .&%X'li%%%%%%%% 

PROCEDURE. COPY(ROH»j); 

l£LUE.-Ji)3!L» Jl...ll_]_aiLL_JI 

6 E vi I M LABEL PRI NT I T, PLNCH I T, TAPE 1 1» tUF T, EOF, 
SWITCH ACTIONSsFRlNTn^POivCHllMAHEii; 

flLRM.4 1 S.PA.CXR1.*!." ___J. 

S F T f L S E -y C Q D E ) ; 
FILL OIS^FIlE WITH F I lEN Act T <<G'> > J J • [ 6 : 4 2 J , LSt HCQCt; 

..... ..MKEE ILE.l. E I.LEMM£IJi£^.*..aJ J ..Ll.SEl^..QD.L /. _jy>X*_i... _ 

IF FMED NEQ TAPE THEN HE ADI NG C STUFF C J * JUNKC J , L)aTE# WORD I FMED 3 )1 
GO TO ACTIONCFMED-PRlNT + n; 

_H.HIJ4IJ.IJI _ _._ _._ _ 

WRITE(LINECPAGEJ); 
WRITECLINE»6»STUFF[*] )i 

WRITE ,JUM.»5JP_U_3>i.. . __ 

00 BEGIN 

READ(0ISKFILE#1G,BUFFC*JHEQF]; 

S.H IFT t BUFF I ..* 1 * STUFF L* 3 U . 

WRlTE(UNErDBU#ll>STUFF[*J); 

end until false; 

....p.mn..clhi.t.j - _ . _ 

writecpnch, spacer* 1 ) j 

WRITE<PNCH,6,STUFFt*J); 

WRITE (PN.CH.*Sp.ACEH-tl)i ...._ ... ... .._ 

DO BEGIN 

READCDlSKFlL.E»10,BUFFC*JHE0Fj; 

WR.IT£CPNCH,lQ*BUFFL*ll/ 

END UNTIL FALSE; 
TAPE IT » 

._ FILL. TP£ W I TJl_._RCQDE#BLANKS&FlLENAME[RQW«J][6 tl2«36]l 

00 BEGIN 

REAO(DlSKFlLE#ie»BUFF[*] )[EOFTli 

„.WRITXlIPI.iJJI*mi£FlL*l2,i._ _._.._ . 

END UNTIL FALSE; 
EOFTJ 

5f..LA.§JAPXt.R_J"_lHL_LP_C!_I_Ll_„.S£ _.QJi£C !£_.*._ 

EUFl 
CLOSE(DISKFILE'PURGF); 

FQRMAT6(BUFF[01»JUKKCQ] >W0R U[FMluJ); . _ 

WRITE(SP0#5#BUrF(*])/ 
SETtSITE); 

..ENDl. _ _ __ __ 

%%%%%%% %%%%%%%%%%%%%%%%%%% *%%%%%%%%%*%%%%%1%%%%%X%%%1%%%%%%% 
%% START OF PROGRAM 



3 9 1 C 

QjUJiliilL. 

00039300 
0003940C 

0003 VSOO 



00U3W6CC 

OOuJS>700 



00039900 
000*10000 

_fl__tQfl-. 
00040200 
00040300 

JlQ_iL_CL 



00040500 
00040600 
00040700 
00040800 
00040900 
..Q_1A_JQ.Q_. 
00041100 
000412'00 
OOOAl^OO. 

00041400 
00041500 
GD 0.41600- 
00041700 
00041800 

jiaft___ 



00042000 
00042100 

.00.0-4.22.0.0 
0004230C 
00042400 

J_<M2_flL 
0004260C 
00042700 

■■P_j4«JB_- 



00042900 

00043000 

Jmfl_U_L 



numusersj*»i; 

FILL WORDt*] WITH 



%%%%%%%%%%%% 00 vJ 4 3200 
%% 00043300 



"3ALL 



"7PRINTER"' 
"5PUNCH ", 

L__X- 



FILL DAYS[*3 W iTh ,31 ,60 ,9 1 , 12 1 , 152 , 182,2 1 3* 244 ,274 , 

305,3 35,366; 

JiAKJ__J_. 



searchdirectqry; 
if numusers geo 

■1EGIN 



00043500 
00043600 

.00043700 - 
00043800 
00043900 

_.XLO..Q-4.4jOOIL . 
00044100 
00044200 

.CL_JL42_.__ 



THEN 



SEEIFTHEKLUTZNEECSFILENftMES; 
WHILE THERESOMETHINGTODO DO 
BEGIN ; 



OQ044400 

00044500 

-0 00446 00 



00044700 
0004480Q 
00449 00 



]l!v 

ml 
I :j i 



FOR I:=FIRSTUSLR STEP 1 UNTIL lasTlSLN UG 
IF UStRSCl] NEG THEN 

BEGIN ... 

ROws=i; 
USERCOOE»-USERSCI]J 

NLWRQWIFQR J? = l STEP l.U^IlL NL^lMlJW.LMK.3 DO 

dEGIN 

IF FN THEN IF F IL£N AMEC Ruw> J J . [ 1 <> : 3b J N£U THIimG THEM GU 

IT iF^LO.;. s FlLEKAKEI.RCvh»jJ..FM.y.IA}. te.k. Q .A.N.D 

(MEDIA = FMEU OK MtDlA-OJ Th'fciN 
BEGIN 
COPY.CROW'J); 

xs=x+i; 

FILENAMECHCMJ] : = o; 

end; 

FlNi: END; 

IF ROWJsNXTRCwtrtOWJ NEQ THEN GO TO NEwHOfc; 

end; 

IF X = G THEN hKlTECSPQ#TOUflAO> ELSE Nu^ F Hi* J = NUMF IlES"X ; 
END 

t-ND .ELSE. KRlTE(SP.U,K.GF.lLLbi; _ 

ENU. 

end;end. last card on ocruing tape 

. . BEGIN 



TO FIN I' 



0004SOQC 
u b i G o 
00.0452 00 
0004b300 
00045400 
Q.QG. 4.5.5 00 
0GGqb6GC 
00O45700 
000 4.5.60.0 
000^5900 

oqu46oog 

.O.QOilfil.DQ. 
GCG462CC 
00G<*63GC 

GQ.G..4..64GC 
0004650C 
00046600 

QO 04 6700 

0G04680C 

00046900 

00047000 

00047100 
99999999 

085V790C 



|i'3 

Mi 
27 

m 

29 
1(1 

SI 

n 

u 

lib 

ill 
\:v" 

it* 
j<l 

<lu| 



*4 
«5 
46 
>'l 
Uf 
19 
if) 
51 
52 
53 
54 
5S 
56 

5!. 



LABEL OOO0O000OPRIMEKO017510CCC EX OB JECT/Rfc AUJ F ILE SOURCEF ILEbSYMBOL/HAKD; END* 



QBjEC[ /READ 



\i 
'!) 
t 

I 21 ' 



J3 
21 



126 
H7I 
281 

H 

po, 

S 

33 

84 

(». 
36, 

37 ~ 

[38 

|39 

.0 

41 

42 

43 

44 

45 

46 

4? 

«- 
4* 

50 

51 

52 

53 

54 

55 

56 

57 



• • 



